/* isBoolean.asm
 * Tests whether its argument is boolean
 *
 * 
 */

 IS_CHAR:
  PUSH(FP);
  MOV(FP, SP);

  MOV(R0,FPARG(2));
  CMP(IND(R0), T_CHAR);
  JUMP_EQ(L_IS_CHAR_T);
  MOV(R0, IMM(3));

  POP(FP);
  RETURN;

 L_IS_CHAR_T:
  MOV(R0, IMM(5));

  POP(FP);
  RETURN;
